home *** CD-ROM | disk | FTP | other *** search
/ Urabon Golden Age Girl 2 / Urabon Golden Age Girl 2.iso / mac / 裏ガール２data / FAVORITE.DIR / 00002_slect.ls < prev    next >
Encoding:
Text File  |  1995-01-18  |  1.1 KB  |  33 lines
  1. on mouseDown
  2.   global slct, slcline, slfile, ngyou
  3.   repeat while the stillDown
  4.     if rollOver(clickOn()) then
  5.       set the castNum of sprite clickOn() to the number of cast "dnslect"
  6.     else
  7.       set the castNum of sprite clickOn() to the number of cast "slect"
  8.     end if
  9.     updateStage()
  10.   end repeat
  11.   if ngyou >= 12 then
  12.     put "ﾃ厩ﾃ嘉｢ﾃ韻ﾃ栄ﾃ鰻ﾃ嘉｡ﾃ…[ﾃ‡ﾃ•12ﾃｧﾂｰﾃ‡窶ｹﾃ‡ﾂｼﾃ‡ﾂｼﾃ‡ﾃ" & RETURN after field "Selected"
  13.     beep(2)
  14.     delete line 13 of field "Selected"
  15.     hilite line 125 of field "BOOKTITLE"
  16.     set the visible of sprite 12 to 0
  17.     set the visible of sprite 13 to 0
  18.   else
  19.     put slfile & RETURN after field "zSelected"
  20.     put slct & RETURN after field "Selected"
  21.     set ngyou to 1 + ngyou
  22.     set the visible of sprite 14 to 0
  23.     set the visible of sprite 6 to 1
  24.     set the visible of sprite 11 to 1
  25.     set the visible of sprite 13 to 1
  26.     set the visible of sprite 12 to 0
  27.     hilite line 125 of field "BOOKTITLE"
  28.     hilite line ngyou of field "Selected"
  29.   end if
  30.   set the castNum of sprite clickOn() to the number of cast "slect"
  31.   updateStage()
  32. end
  33.